home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / rettig.arc / TRSOURCE.EXE / TR_ARRTP.PRG < prev    next >
Text File  |  1990-10-22  |  648b  |  25 lines
  1. *********
  2. *  ATYPE
  3. *  by Tom Rettig
  4. *
  5. * Placed in the public domain by Tom Rettig Associates, 10/22/1990.
  6. *
  7. *  Syntax: atype( <expA> )
  8. *  Return:
  9. *         "A" if array name only is passed  (Winter '85 update and later)
  10. *         "B" if block type element (5.0 and later)
  11. *         "C" if character type element
  12. *         "D" if date type element
  13. *         "L" if logical type element
  14. *         "N" if numeric type element
  15. *         "O" if object type element (5.0 and later)
  16. *         "U" if uninitialized element (NIL, local, static in 5.0 and later)
  17. *
  18.  
  19. FUNCTION ATYPE
  20.  
  21. PARAMETERS tr_a
  22. RETURN TYPE('tr_a')
  23. * eofunc atype
  24.  
  25.